home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / alpha / examples / date.d < prev    next >
Encoding:
Text File  |  2002-10-28  |  621 b   |  31 lines
  1. /* example of usage for DateStamp() and DateToStr() functions */
  2.  
  3. MODULE 'dos/datetime', 'dos/dos'
  4.  
  5. OPT DOSONLY
  6.  
  7. DEF dt:DateTime,ds:PTR TO DateStamp
  8.  
  9. /* these are filled by DateToStr() */
  10. DEF day[50]:UBYTE,date[50]:UBYTE,time[50]:UBYTE
  11.  
  12. PROC main()
  13.  
  14.   /* get stamp in part of datetime structure */
  15.   ds:=DateStamp(dt.Stamp)
  16.  
  17.   PrintF('days=\d, minutes=\d, ticks=\d\n',ds.Days,ds.Minute,ds.Tick)
  18.  
  19.   /* fill datetime structure */
  20.   dt.Format:=FORMAT_DOS
  21.   dt.Flags:=DTF_SUBST
  22.   dt.StrDay:=day
  23.   dt.StrDate:=date
  24.   dt.StrTime:=time
  25.  
  26.   IF DateToStr(dt)
  27.     PrintF('day=\s, date=\s, time=\s\n',day,date,time)
  28.   ENDIF
  29.  
  30. ENDPROC
  31.